00010	ENTRY HEAR;
00020	BEGIN
00030	DEFINE ⊂="COMMENT";
00040	⊂ To initiate the ADC and record an utterance in file LISTEN.TMP;
00050	DEFINE CR="'15",LF="'12",CRLF="CR&LF";
00060	
00070	REQUIRE "RECORD.REL[KI,ALS]" LOAD_MODULE;
00080	REQUIRE "IO.REL[X,ALS]" LIBRARY;
00090	REQUIRE "SUIO.REL[X,ALS]" LIBRARY;
00100	REQUIRE "LIB.REL[NET,NJM]" LIBRARY;
00110	EXTERNAL FORTRAN PROCEDURE FMAIN;
00115	EXTERNAL INTEGER CHAN3;
00120	INTEGER SEGNAM;
00130	
00140	INTERNAL PROCEDURE HEAR;
00150	BEGIN "KIHEAR"
00160	INTEGER BRCHR,EOF; BOOLEAN ER;
00170	
00180	CLOSE(CHAN3); OPEN(CHAN3,"DSK",'10,1,0,0,0,EOF);
00190	  LOOKUP(CHAN3,"LISTEN.TMP[KI,ALS]",ER);
00200	  CLOSE(CHAN3); RENAME(CHAN3,"NULL.TMP",0,0);
00210	  ⊂ Rename old LISTEN.TMP file for safety;
00220	outstr("Start talking after the first beep and stop on second"&CRLF);
00230	 START_CODE MOVE 0,['725005000004];  '047000400110 ; END;
00240	⊂ This sounds the beep for 1 second with immediate return, so that
00250	  the ADC can be called before the speaker starts;
00260	OUTSTR("The beep should be sounding for 1 second now"&CRLF);
00270	
00280	⊂ Get segment name and detach;
00290	 START_CODE  '047000400037; MOVEM 0,SEGNAM; '047040400017; END;
00300	
00310	 FMAIN;
00320	
00330	START_CODE MOVE 0,SEGNAM; '047000400016; JFCL; END;
00340	⊂ Reattach segment;
00350	 START_CODE MOVE 0,['725005000004];  '047000400110 ; END;
00360	
00370	END "KIHEAR";
00380	
00390	END;